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/* 


Standalone bouncing equare deao 
*/ 


//include "legedef.h" 

//define Xaax (Buide-1) 

//define Yeax (Bhi-1) 

long valofO, ndelag - 1808$ 

//define delag( n ) { long t « n; do U whileC 


aain( narge, arge ) char* argeCl; 

{ 

if( argeCl]) ndelag - valofC argeCll); 
BouncingSquare(); 

) 

BouncingSquare 0 
{ 

int x, g, vx, vg; 

GXfunction - GXeet; 
rae_urite( 1023,1823,0,0); 
x-0; 

g-8; 

vx-4; 

vg-0; 

GXfunction - GXinvert; 
while (1) ( 

rae_write( 20, 20, x, g ); 
x-x+vx; 

if (x>(X»ax-20)) 

( 

/* 

* Bounce off the right edge 
*/ 

x-2*(Xmax-20)-x; 
vx- -vx; 

) 

elee if (x<0) 

{ 

/* 

* bounce off the right edge 
*/ 


x- -x; 
vx* -vx; 


) 


vg-vg+1; 
g-g+vg; 

if (g>-(Ymax-20)) 

{ 

g-Y*ax-20; 
if (vg<20) vg-l-vg; 
elee vg«vg / 20 - vg; 
i f (vg—0) 

( 

x-0; 

g-0; 

vx-4; 

vg-0; 

) 

) 

deIag( ndelag); 

) 
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/* ell.c: draw circles / ellipses */ 

^include "legsdef.h" 

#include "../bz.h" 

^define x0 (Buide / 2) 

^define y0 (Bhi / 3) 

tong valofC), ndelag - 1000; 

^define delay ( n ) ( long t - n; do 0 uhile( — t >- 0 ); ) 


■ain( nargs, args ) char* argsH; 

{ reg int rad, n f op, ellipse - 2; 

extern int Bcircleshift; 

if( argstl] )( ellipse - valofC argstll); 

if( args[21 ) Bcircleshift • valofC args[21); 

) 

Bf i 11 ( 0, 0, Bhi, Buide, Bblack ); 

for ( n - 0; ++n; ) { 

op - (nil? Bwhite : Bblack ); 

for( rad • 50; rad < x0; rad 10 ){ 

if( ellipse — 0 U rad » y0 ) break; 

....... .*/ 

BcircleC x0, y0, rad, op, ellipse ); 
delay( ndelay ); 

) 

delay( 100 * ndelay ); 














Nov 30 15:50 1983 deeo/fputc.c Page 1 


/* Fputc( c, x t g ): char fro» Berkeley font -> bip 

global: Font Fputc_op */ 

*/ 

0include <bip/ope.h> 

U include "font.h" /* <vfont,h> ♦ */ 

U include "../bz.h" 

etruct font* Font; /* current font froe Fontread */ 
short Fputc_op - Bib lack; 


Fputc( c, x t y ) reg char c; 

{ reg letterty *1-8 Font->letters[ cl; 

i f ( l->nbytes — 0 ){ 

if( In( c, ’a\ * z* )) c ♦- ’A’-’a’i 
else c - •?•; 

I - 8 Font->lettersC c ]; 
ifC l->nbytes — 0 ) return; 

} 

/* . */ 

BputlG( x - I->I eft. y - l->up, 

l->up ♦ l->down, I —>left + l->right # 

8 Font->bitsC l->addr ], 

Fputc_op ); 

} 
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/* sun -> bip demos */ 
#include <bip/ops.h> 


extern short 

GXfunction. 



GXuidth, 
GXcontrol; 


#define 

GXset 

Buhlte 

#de fine 

GXc1ear 

Bb1ack 

#define 

GXinver t 

Binvert 

^define 

GXxor 

(Bsource * 

#define 

GXvideoEnable 0 

^define 

true 1 


#define 

ras_copy 

Bit 

/* #def ras_urite( h u x y ) 


Bfi11 ( x g h u GXfunction ) 


*/ 
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/* 

Munching squares demo 

*/ 

U include "legsdef.h" 

^define Ymax 799 
^define param 12345 
mainO 
{ 

if( GXfindO) exit(l); 
GXcontrol - GXvideoEnable; 
munch 0 $ 

} 


munch 0 ( 

int x, g, t, dt; 

GXfunction - GXset; 
ras_urite( 1023,1023,0,0); 
if (param—0) dt-ls else dt-param; 
t»0; 

GXfunction • GXinvert; 
while (true) ( 

for (x-0; x<«511; x++) ( 
y«(511 8 (x * t)); 
if ( y+y < Ymax ) 
ras_write (2, 2, 2*x, 2*y); 

) 

t-t+dt; 


) 


) 
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/* ray.c triv lines froe centre */ 
#include "legsdef.h" 

#include "../bz.h" 

^define x0 ((Buide / 3) 8 -32) 
^define y0 ((Bhi / 3) 8 -32) 


«ain( nargs, args ) chare args Cl; 

( reg int x, y, n, op, ep ■ 16, neleep - 0; 

if( args [11 )( sp - valof( args Cl]); 

if( argsC21 ) nsleep - valofC argsC23); 

) 

BfiI I( 0, 0, Bhi, Buide, Buhite ); 

for( n-0; ++n; ) C 

op - (n 8 1 ? Bblack : Buhite); 

for( x - 0; x < Buide; x ♦- sp ) BlineC x0, y0, x, 0, 

for( y - 0; y < Bhi; y sp ) BlineC x0, y0, Buide-1, y, 

for( x ■ Buide-1; x >■ 0; x — sp ) BlineC x0, y0, x, Bhi 

for( y - Bhi-1; y >• 0; y — sp ) BlineC x0 v y0, 0 V y, 

sleepC nsleep ); 

) 

) 


op ); 
op ); 
1. op ) 
op ); 
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/» recursive tree 

after Uyvill, June Software PAE 

*/ 

//include "traline.h" 

//include <bip/ops.h> 

//include "../bz.h" 

int treemax - 8; 
trans A v B, C; 

struct line unit I - ( 0., 0., 0., 1. ); 

■ai n ( nargs, args ) char* argsC); 

{ 

if( argsC13) treemax ■ valofC argsCll); 
BfilM 0, 0, Bhi, Bwide, Bwhite )$ 

A - make_trans( 30., 0.75, 0., 1./3 ); 

B - make_trans( -35., 0.G, 0., 2./3 ); 

C - make_trans( 30., 0.5, 0., 1. ); 

tree( Aunitl, 0 ); 

) 


/*... 

tree( 

{ 


) 


, n ) reg line I; 
struct line Al, Bl, Cl; 
draulinei I ); 
if( ++n >- treemax 


|| (l->p.x — I->q.x 

return; 

tral ine( A, I, AA I ) ; 
tral ine( B, I, ABI ); 
tral ine( C, I, AC I ); 


AA l->p.y — 

tree( AAf, 
tree( ABI, 
tree( AC I, 


l->q.g)) 

n ); 
n ); 
n ); 


/ 


*/ 
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/* eouee 16*15 big blocks —> wallpaper */ 

U include <bip/ops.h> 

#include "../bz.h" 

bfillpatC x, y, h0 v u8, pat ) int pat [161; 

{ reg int h, w; 

i f ( h0 <- 0 | | w0 <- 0 ) 

return; 

BputlG( x, y, 16. 16, pat, Bsource ); 
for( w-16; w<u0; w+-w ) 

B11( x, y, 16, fllNC m, w0—w ), 
x+u, y, Bsource ); 
for( h-16; h<h0; h+-h ) 



B11( x. 

u. HIN( h, h0-h ), M, 

} 

x. 

g+h. 

Bsource ); 

bf i11frame( x, y, h, w. 

pat ) 

int pat 116); /* fill frane around xyhw 

{ 

bf i1Ipat( 0, 

0. 

y, Bwide, pat ); 


bfi1Ipat( 0, 

y+h. 

Bhi-y-h, Bwide, pat ); 


bfi1Ipat( 0, 

y. 

h, x, pat ); 


bfi1Ipat( x+w. 

y. 

h, Bwide-x-w, pat ); 


} 


static int arrow[1 - < 

0x8000, 0xc000, 0X6000, 0xf000, 0xf800, 0xfc00, 0xfe00, 
0xf000, 0xd800, 0x9800, 

0x0c00, 0x0c00, 0x0600, 0x0600, 0x0300, 0x0300 ); 

na in() 

{ bfiI Iframe( 320, 192, 256, 256, arrow ); 

/* next: House 16*16 big blocks */ 

} 








